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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USEPS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USEPS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil, do not use ink) 
Program No. __________ Dafe, 

Program Name: 



1. Does the abstract adequately describe what the program is and what Yes No 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No_ 

Comment , 

3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No, 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment ; . 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes__ No_ 

Comment 



8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No, 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company ; . 

Data Corporation . 

7500 Old Xenia Pike Address 

Dayton, Ohio 45432 

User Group Code 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 

^ 11/09/64 
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GREGORIAN CALENDAR-1 585 A.D. TO ?599 A.D. /CARD/ 

December 9, 1964 

Author: 

Roger K. Simpson 

Electrical Engineering Student 

California State College-Long Beach 

6101 East 7th Street 

Long Beach 4, California 

Telephone 21 3-433-0951 

User Group Code: 5198 

Direct Inquiries to: 

Roger K. Simpson 
13134 Deming Avenue 
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Telephone 213-633-3454 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 

// 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE {If subroutine, state in Title): Gregorian Calendar-1 585 to 2599 A. D. /CARD/ 
Subject Classification^ 1 .0-Type IV 

2. Author; Organization: R oae r K. Simpson. Electrical Engineering Department. California 

State College-Long Beach, 6101 E. 7th Street, Long Beach, California 

Date: p Br ember 9. 1964 Users Group Membership Code: 5198 

3. Direct Inquiries to Name: Roger Simpson, nna n^ ng Awn.,.,, nnnn« y , r«Hf. q n?42 
Phone: 213-633-3454 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) jbj s program 

types the day of the week corresponding t ?o date in the Gregorian Calendar. 

Illegal dates and dates before -1585 AD are excluded. Console switch determines 

card or typewriter input. Input data is re-typed with output. Sums number of 

days using Jan. 1. 1583 as first day. The program makes special corrections for 

quadrennial and centesimal leap years. Converts sum of days to day of week by 

repeated subtraction of seven. Optimized program gives result in from two to seven 
seconds. For use with any 1620 with card 1/0. Written in UT0 Fortran 1 1 620-02 .0.UY4 ) 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: usable with 20K storage capacity machine 

b. Equipment required by program: 

Card System X ; Magnetic Tape System ; No. of Tapes ; 

Paper Tape System j Disk File System ; No. of Packs ; 



TNS, TNF, MF ; Auto divide ; Indirect addressing ;Floating point hardware 

Other (specify) none-basic 1620 

Can program be used on lesser Machine? . Specify which requirements can be 

easily removed 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format X i (UT0 FORTRAN) 

Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) ; 

Is the program a library (ie, SPS) function to the Fortran system checked? no ; 

SPS ; SPS - 1620/1710 ; 

Mainline, Complete ; Macro ; Subroutine ; 



Other programming language: ; Give details 



d. Language used in the writeup: English 
8. Additional Remarks: 



Input dates of calendar limited to 1585 AD to 2599 AD. Dates earlier than 15B5 AD 
are not meaningful since the Gregorian Calendar was invented by Pope Gregory XIII 

in 1582 and did not come into general use until somewhat later. The Julian 

Calendar was used prior to this time, but there were so many local options 
regulating its use that a general program Tor it is not suggested. 

MS ' 
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LABELING OF CARD DECKS USED 

Deck 1 

Source Deck written for use with UTO Fortran (1620 User Group Library 
#1620-2-0-024). This deck is numbered sequentially in columns 73-80. 
The total number of cards in this deck is 212; 
Labeled CAL 0001 -CAL 0212 

Deck 2 

Object Deck including subroutines plus a zero core loading routine. 
This deck was made by compiling deck #1 using UTC Fortran Compiler 
and Subroutines. An additional four cards were placed in front of the 
deck. The four header cards are core zeroing instructions. This 
deck is not numbered sequentially. The total number of cards in this 
deck is 284. 

Deck 3 

This deck is a deck of Sample Data Cards. These 20 cards are numbered 
sequentially in columns 73-60. 
Labeled DAT 0001 -DAT 0020 



December 9, 1964 
GREGORIAN CALENDAR-1 5B5 AO TO 2599 AD-/CARD/ 



I. Author- Roger K. Simpson, Electrical Engineering Student, 
California State College-Long Beach 

II. User Grouo Code Numbar -5198 

III. Descriptiort- The purpose of this program is to give the opprctcx 
the day of the week which corresponds to any date in the Gregorian 
Calendar. The Gregorian Calendar was devised by Pope Gregory XIII 
in 1682 to correct certain errors which had appeared under the 
Julian Calendar invented in 46 EC by Julius Caesar. The Gregorian 
Calendar was not universally accepted at its inception. It came 
into use as follows: 



IV. 




country/area 

United States 

England 

Poland 

Western Europe 

5weeden 

Japan 

China 

Turkey 

i-'.S.S.R. 

Greece 



date of adoption 

1752 
1752 
1566 
1 585 
17 53 
1873 
i 91 2 
1917 
191 B 
1923 



Virtually all countries use the Cregorian Calendar today. A 
universal calendar program is difficult to write because of tha 
large number of divergent calendar systems used by different 
civilizations. The Julian Calendar was used prior to the 
Gregorian Era, but local options regulated its use. Therefore 
it was thought best to concentrate programming efforts on the 
Gregorian Calendar, 

In the Gregorian Calendar leap years are all years that are 
exactly divisible by four except centesimal years (years ending 
in 00), which are common unless divisible by 400, 

Operating Procedures 

A. Place deck #2 into the 1622 card reader. 

B. Press the RESET key on the 1620 console and the LOAD key 
on the 1622 card reader. 

C. Press the READER START key on the card reader when the card 
reading operation comes to a halt. This allows the last 
several cards to be read. 

D. The typewriter will type a message and then the processor 
will reach PAUSE 0001 . 

E. At this time PROGRAM SWITCH 1 on the console is set as 
directed by the typewriter message. (5witch 1 up for card 
input; off for typewriter input). 

F. Enter data as follows: 

1. Cards- The data is entered in three 6 digit columns. 
The data should be right justified in the columns to 



V 



3 



=ivoid possible misinterpretation by the processor. 
The first column coptains the fixed ncint numbers 
1-12 and correspcnds to the month; ti.e second 
colunn contains a fixed point number corresponding 
tc the number of the day of the month; the third 
rclumn contains a four digit fixed point number 
between 1585 and 2599 corresponding tn the year AD. 
Only one date may be punched on a card. 

2. Typewrit er -For typewriter input the column arrangement 
used for card input, also applies. After inserting 

-h3 number of thp yeai type in sevet-u spaces and 
tnen tyoe the R-B character or press the RELErSc 
key and the START key. 

3. General notes-Data input format 'j-sed is: 16,16,16. 
Decimal points should not be included in the input. 

G, Upon completion of one calculation the processor branches 
to the input statements to await more input data. 

H. This program is written in UT0 Fortren. General information 
regarding the operation of UT0 Fortran is not assumed, 

but may be useful. See documentation for UT0 Fortran, 
1620 Users Group Library #1620-2-0-024. 



Performance 

A. Data Checks -The processor checks for dates which are not 
found in the Gregorian Calendar. Numbers of months other 
than those from 1-12 are detected and excluded. Unly valid 
dates for any given month are allowed. Thus April 30, 1964; 
February 29, 1964; and February 29, 2000 are legal while 
April 31, 1964; February 29, 1965; and February 29, 1900 
are illegal. Input data which is zero or negative is 
excluded. For any illegal input the message: "THIS DATE 

15 NOT ALLOWED" is typed. The processor also excludes 
dates outside the range of 1585 to 2599 AD. When this 
condition exists the following message is typed: "DATA NOT 
IN LIMITS OF 1585 AD TO 2599 AD." 

B. Accuracy and Speed -There are no known errors in the 
calendar calculations. The speed of calculation, exclusive 
of printout time, is between 2 and 6 seconds for the 1620 
Model 1. Times should be faster for the 1620 Model 2. 

Equipment Required- T he program was compiled and executed on a 
1620 Model 1 with 20K storage capacity. No special features 
were used. A 1622 card reader-punch unit is necessary. The 
program should be compatable with any 1620 which is equipped 
with the 1622 card 1/0. 
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GREGORIAN CALENDAR PROGRAM- 1585 AD TO 2599 


AD— /CARD/ 


CAL 


0001 


C 


IF STATEMENTS REJECT YEARS 


OUTSIDE 


1585 


TO 


2599 


LIMIT 




CAL 


0062 




PRINT 80 




CAL 


0002 




I F ( JYD- 1 585 ) 15.10.10 


















CAL 


0063 




PRINT 113 




CAL 


0003 


10 


IF (JYD-2599) 96.96.15 


















CAL 


0064 




PRINT 114 




CAL 


0004 


15 


PRINT 19 


















CAL 


006S 




PAUSE 1 




CAL 


0005 




GO TO 16 


















CAL 


0066 




SENSE SWITCH 1 DETERMINES INPUT MODE 




CAL 


0006 


C 


FROM HERE TO STATEMENT 1 1 0— CENTES I MAL LEAP 


YEAR 


CORRECTION 


CAL 


0067 


16 


IF (SENSE SWITCH 1) 116*115 




CAL 


0O07 


C 


TALLYING 1 DAY FOR EVERY NON 


QUADR I CENTENNIAL CENTESIMAL 


YEAR 


CAL 


0068 


1 15 


ACCEPT 82.M.JD.JY 




CAL 


0O08 


c 


SINCE 1582 


















CAL 


0069 


GO TO 503 




CAL 


0009 


96 


IF (JYD-2500) 98.98.97 


















CAL 


0070 


1 16 


READ 82.M.JD.JY 




CAL 


0010 


97 


DYC«7. 


















CAL 


0071 




IF STATEMENTS REJECT NOT ALLOWED MONTHS 




CAL 


001 1 


98 


GO TO 17 


















CAL 


0072 


503 


IF (M-12) 509.509*500 




CAL 


0012 


IF (JYD-2300) 100*100.99 


















CAL 


0073 


509 


IF (M) 500*500*117 




CAL 


0013 


99 


DYC*6. 


















CAL 


0074 




GO TO TRANSFERS TO PROPER MONTH NAME FOR INPUT 


CAL 


0014 


100 


GO TO 17 


















CAL 


0075 




DATA PRINTOUT AND TALLYS PROPER NUMBER OF DAYS DUE TO MONTH 


CAL 


0015 


IF (JYD-2200) 102.102.101 


















CAL 


0076 


1 17 


GO TO (63.64. 65.66. 67. 68.69.70.71 » 72.73.74 ) 


<M 


CAL 


00 16 


101 


DYC«=5. 


















CAL 


0077 


63 


PRINT 83,JD*JY 




CAL 


00 17 




GO TO 17 


















CAL 


0078 




JDM s O 




CAL 


0018 


102 


IF (JYD-2100) 104.104.103 


















CAL 


0079 




IF (JD— 31) 8.8.500 




CAL 


0019 


103 


DYC*4. 


















CAL 


0080 


64 


PR I NT 84 . JD . JY 




CAL 


0020 




GO TO 17 


















CAL 


0081 




J0M»31 




CAL 


0021 


104 


IF (JYD-1900) 106.106.105 


















CAL 


0082 




EXECUTE PROCEDURE 703 




CAL 


0022 


105 


DYC»3. 


















CAL 


0083 




IF (LEAP) 500.602.603 




CAL 


0023 




GO TO 17 


















CAL 


0084 


602 


IF (JD— 28) 8.8*500 




CAL 


0024 


106 


IF (JYD-1800) 108.108*107 


















CAL 


0085 


603 


ir \ %/l>— } o*o*3uu 




CAL 


0025 


107 


DYC=2. 


















CAL 


0086 


65 


DD TKJT A*5 » IPS » IV 




CAL 


0026 




GO TO 17 


















CAL 


0087 


JDM*59 




CAL 


0027 


108 


IF (JYD-1700) 110.110.109 


















CAL 


0088 




IF (JD— 31) 8.8.500 




CAL 


0028 


1 09 


DYC«1 . 


















CAL 


0089 


66 


DO f KIT AA - in * IV 




CAL 


0029 


110 


GO TO 17 


















CAL 


0090 








CAL 


0030 


DYC=0. 


















CAL 


0091 








CAL 


0031 


c 


FROM HERE TO STATEMENT 112- 


-ADD I NG 


DAYS 


IN 4 


. 40, 


400 YEAR 




CAL 


0092 


67 


□ DTMT AT. in » IV 




CAL 


0032 


c 


BLOCKS INCLUDING QUADRENNIAL 


LEAP 


YEARS 










CAL 


0093 




JDM* 1 20 




CAL 


0033 


17 


DY*0. 


















CAL 


0094 




IF ( JD— 3 1 ) 8.8.500 




CAL 


0034 


3 


JYD=JYD-400 


















CAL 


0095 


68 


PRINT 88.JD.JY 




CAL 


0035 




DY=DY+146100. 


















CAL 


0096 




JDM« 15 i 




CAL 


0036 




IF (JYD- 1584) 4,4,3 


















CAL 


0097 




IF (JD-30) 8*8.500 




CAL 


0037 


4 


JYD=JYD+400 


















CAL 


0098 


69 


PRINT 89.JD.JY 




CAL 


0038 




DY=DY-146100. 


















CAL 


0099 




JDM*181 




CAL 


0039 


5 


JYD*JYD-40 


















CAL 


0100 




IF ( JD-31 ) 8.8.500 




CAL 


0040 




DY=DY+14610. 


















CAL 


0101 


70 


PRINT 90.JD.JY 




CAL 


0041 




IF (JYD- 1584) 9,9,5 


















CAL 


0102 


JDM=212 




CAL 


0042 


9 


JYD=JYD+40 


















CAL 


0103 




IF (JD-31) 8.8.500 




CAL 


0043 




DYsDY-1461 0. 


















CAL 


0104 


7 j 


PRINT 91. JD ♦ JY 




CAL 


0044 


7 


JYD*JYD-4 


















CAL 


0105 




JDM=243 




CAL 


0045 




DY=DY+1461 . 


















CAL 


0106 




IF (JD-30) 8.8.500 




CAL 


0046 


26 


IF ( JYD— 1584 ) 26,12,7 


















CAL 


0107 


72 


PRINT 92.JD.JY 




CAL 


0047 


JYD=JYD+4 


















CAL 


0108 




JDM=273 




CAL 


0048 




DY=DY-1461 . 


















CAL 


0109 




IF (JD-31) 8.8*500 




CAL 


0049 


122 


JYD=JYD-1 


















CAL 


0110 


73 


PRINT 93.JD.JY 




CAL 


0050 




DY*DY+365. 


















CAL 


0111 




JDM-304 




CAL 


0051 




IF (JYD-1584) 26,112.122 


















CAL 


01 12 




IF (JD-30) 8.8.500 




CAL 


0052 


112 


DY*OY+l . 


















CAL 


01 13 


74 


PRINT 94.JD.JY 




CAL 


0053 


C 


FROM HERE TO STATEMENT 28-USED TO 


TALLY 


DAY 


FOR 


FEB 29 IF 


LEAP 


CAL 


01 14 


JDM=334 




CAL 


0054 


C 


YEAR EXISTS 


















CAL 


0115 




IF (JD-31 ) 8.8.500 




CAL 


0055 


12 


EXECUTE PROCEDURE 703 


















CAL 


01 16 


500 


PRINT 501 




CAL 


0056 




IF (LEAP) 21.21,20 


















CAL 


0117 




GO TO 16 




CAL 


0057 


C 


STATEMENT 20 CHECKS TO SEE 


IF 


MONTH 


IS MARCH OR 


GREATER. 




CAL 


0118 




IF STATEMENT REJECTS NOT ALLOWED DAYS 




CAL 


0058 


20 


IF (M-2) 21.21.28 


















CAL 


0119 


8 


IF (JD) 500.500.81 




CAL 


0059 


C 


STATEMENT 28 ADDS DAY FOR FEB 


29 


IF 


MONTH IS GREATER THAN 


FEB 


CAL 


0120 


81 


JYD=JY 




CAL 


0O60 


C 


AND YEAR IS A LEAP YEAR 


















CAL 


0121 




DD* JD 




CAL 


0061 


28 


JDM=JDM+1 


















CAL 


0122 



© O O ,; 



21 


DM=JDM 














CAL 





L23 




GO TO 


300 






THIS STATEMENT TALLYS TOTAL 


DAYS COUNTING 


JAN 31 


. 1583 


AS FIRST 


CAL 





24 


201 


LEAP=1 








DAY <DT=TOTAL DAYS. DY= 


DAYS FROM YEAR. DM=DAYS 


FROM 


MONTH. 


CAL 





125 


300 


END PROCEDURE 703 






DD=DAYS FROM DAYS* DYC=DAYS 


FROM NON 


QUADRACENTENN I AL 


CENTESIMAL 


CAL 





126 


80 


FORMAT 


(//38H GREGORIAN CALENDAR- 1 585 


AD TO 2599 AD//) 




LEAP YEARS • »05 KEEPS VALUE 


OF DT HIGH FOR 


LATER 


FIXED 


POINT 


CAL 





127 


I 13 


FORMAT 


C39H SENSE SWITCH NUMBER 1 ON FOR CARD DATA) 




CONVERS 1 ON ) 














CAL 





28 


1 14 


FORMAT 


(32H INPUT. OFF FOR TYPEWRITER 


INPUT//) 




DT stDY+DM+DD-D YC+ . 05 














CAL 





29 


82 


FORMAT 


( 16. 16. 16) 






FROM HERE TO STATEMENT 77 


-SUBTRACT DAYS IN 


70000 


. 7000 


. 700. 


CAL 





30 


83 


FORMAT 


(8H JANUARY. 15. 2H ..15) 






70. 7 DAY BLOCKS GIVING NUMBER OF DAY 


IN WEEK ( 1 


-7) 




CAL 





31 


84 


FORMAT 


(9H FEBRUARY, 15. 2H ..15) 




1 


DT«DT-70000. 














CAL 





32 


85 


FORMAT 


( 6H MARCH ♦ I 5 ♦ 2H , . I 5 ) 






IF (DT-7.) 2.2.1 














CAL 





33 


86 


FORMAT 


(6H APRIL. 15. 2H ♦ , 15) 




2 


DT*DT+70000. 














CAL 





34 


87 


FORMAT 


(4H MAY.I5.2H ,,15) 




40 


DT=DT-7000. 














CAL 





35 


88 


FORMAT 


(5H JUNE. 15. 2H ,.15) 






IF (DT-7.) 39.39.40 














CAL 





136 


89 


FORMAT 


(5H JULY. I5.2H . , 15 ) 




39 


DT-DT+7000. 














CAL 





37 


90 


FORMAT 


(7H AUGUST. 15. 2H ,,15) 




48 


DT=DT-700. 














CAL 





38 


91 


FORMAT 


(10H SEPTEMBER. 15. 2H ,,I5> 






IF (DT-7.) 62.62.48 














CAL 





39 


92 


FORMAT 


(8H OCTOBER. 15. 2H .,15) 




62 


DT»DT+700. 














CAL 





40 


93 


FORMAT 


( 9H NOVEMBER .15. 2H » « 15) 




75 


DT=0T-70. 














CAL 





41 


94 


FORMAT 


(9H DECEMBER. 15, 2H ,,15) 






IF (DT-7.) 76.76.75 














CAL 





42 


501 


FORMAT 


(25H THIS DATE IS NOT ALLOWED/) 




76 


DT*DT+70. 














CAL 





43 


19 


FORMAT 


(41H DATA NOT IN LIMITS CF i 585 


AD TO 2599 AD/) 


385 


IF (DT-7. 8) 6.6.77 














CAL 





44 


41 


FORMAT 


( 12H IS A SUNDAY/) 




77 


DT=DT-7. 














CAL 





45 


42 


FORMAT 


(12H IS A MONDAY/) 






GO TO 385 














CAL 





46 


43 


FORMAT 


(13H IS A TUESDAY/) 




6 


JDT*DT 














CAL 





47 


44 


FORMAT 


( 15H IS A WEDNESDAY/) 






GO TO TRANSFERS TO PROPER 


DAY OF WEEK 


FOR 


PRINTOUT 




CAL 





48 


45 


FORMAT 


(14H IS A THURSDAY/) 






GO TO (31 .32.33.34.3S.36. 


37) 


. JDT 










CAL 





49 


46 


FORMAT 


( 12H IS A FRIDAY/) 




31 


PRINT 41 














CAL 





50 


47 


FORMAT 


( 14H IS A SATURDAY/) 






GO TO 16 














CAL 





51 




END 






32 


PRINT 42 














CAL 





52 












GO TO 16 














CAL 





53 










33 


PRINT 43 














CAL 





54 












GO TO 16 














CAL 


o 


55 










34 


PRINT 44 














CAL 





56 












GO TO 16 














CAL 





57 










35 


PRINT 45 














CAL 





58 












GO TO 16 














CAL 


o 


59 










36 


PRINT 46 














CAL 





160 












GO TO 16 














CAL 





61 










37 


PR t NT 47 














CAL 





62 












GO TO 16 














CAL 





63 












PROCEDURE 703 TESTS FOR BOTH 


TYPES OF 


LEAP 


YEARS 


(LEAP 


»1 FOR 


CAL 





64 












LEAP YEAR. LEAP»0 FOR NON 


—LEAP YEAR) 










CAL 





65 












BEGIN PROCEDURE 703 














CAL 





66 












JYL=JY 














CAL 





67 












IF (JYL-1700) 18.200.18 














CAL 





68 










18 


IF (JYL-1800) 22.200.22 














CAL 





69 










22 


IF (JYL-1900) 23.200.23 














CAL 





70 










23 


IF (JYL-2100) 25.200.25 














CAL 





71 










25 


IF (JYL-2200) 27.200.27 














CAL 





172 










27 


IF (JYL-2300) 29.200.29 














CAL 





173 










29 


IF (JYL-2500) 907.200.907 














CAL 





L74 










907 


JYL*JYL-400 














CAL 





175 












IF (JYL-41 13.13.907 














CAL 





176 










13 


JYL*JYL+400 














CAL 





177 










95 


JYL»JYL-40 














CAL 





178 












IF (JYL-4) 30.30.95 














CAL 





179 










30 


JYL«JYL+40 














CAL 





180 










38 


JYL=JYL-4 














CAL 





181 












IF (JYL-4) 200.201.38 














CAL 





182 










200 


LEAP=0 














CAL 





183 











CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 
CAL 



0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
021 1 
0212 



Listfnq'2. 3 



- 1 " 


T3- 


1965 


<4 ■ ■ 


- - - -— - 


wr-"oooT" 


5 


8 


2367 






OAT 


0002 


» 


23- 


T843 




— 


OAT 0003 


8 


20 


201 1 






OAT 


0O04 


T3 




"1699 " 


• — — — — — 




OAT 


«005 _ 


3 


8 


1943 






OAT 


0006 


10 


23 


1*92 






DAT 


©007 


12 


25 


1965 






DAT 


oooe 


2 • ■ 


29 


20O0 






OAT 


0009 


2 


29 


1965 






OAT 


OO10 




""29- ' 


T964 






OAT 


OOTl 


11 


25 


2000 






OAT 


OOI2 


2 


29 


1900 






OAT 


0013 


6 


31 


1967 






DAT 


0014 


1 1 


31 


1965 






OAT 


OOIS 


6 


13 


1999 






DAT 


O016 


T2~ 


6 


65 






OAT 0017 


7 


4 


1776 






OAT 


0018 


9 


43 


1600 






DAT 


0019 


15 


5 


1988 






DAT 


OO20 



GREGORIAN CALENDAR- 1 585 AD TO 2599 AD 



SENSE SWITCH NUMBER 1 ON FOR CARD DATA 
INPUT, OFF FOR TYPEWRITER INPUT 



PAUSE 0001 
JANUARY 13 , 1965 
IS A WEDNESDAY 

MAY 8 , 2367 
IS A MONDAY 

APRIL 23 , 1843 
IS A SUNDAY 

AUGUST 20 , 2011 
IS A SATURDAY 

THIS DATE IS NOT ALLOWED 

MARCH 8 , 1943 
IS A MONDAY 

OCTOBER 23 , 1492 

DATA NOT IN LIMITS OF 1 585 AD TO 2599 AD 

DECEMBER 25 , 1965 
IS A SATURDAY 

FEBRUARY 29 , 2000 
IS A TUESDAY 

FEBRUARY 29 , 1965 
THIS DATE IS NOT ALLOWED 

FEBRUARY 29 , 1964 
IS A SATURDAY 

NOVEMBER 25 , 2000 
IS A SATURDAY 

FEBRUARY 29 , 1900 
THIS DATE IS NOT ALLOWED 



J 




» 



/o 



JUNE 31 , 1967 

THIS DATE IS NOT ALLOWED 

NOVEMRER 31 , 196G 
THIS DATE IS NOT ALLOWED 

JUNE 13 , 1999 
IS A SUNDAY 

DECEMBER 6 , 6S 

DATA NOT IN LIMITS OF 1 ^8^ AD TO 2599 AD 

JULY k , 1776 
IS A THURSDAY 

SEPTEMBER kl , 1 600 
THIS DATE IS NOT ALLOWED 

THIS DATE IS NOT ALLOWEO 




